r = 1

gotletter = 0
gotkey = 0
gotwine = 0
gotcoins = 0
gotskull = 0
gotdoll = 0
gotshovel = 0
gotdoor = 1
ghost = 1

SCREEN 12
COLOR 2, 0
CLS

DIM SHARED DOOM AS DOUBLE
Minutes = 45
Seconds = 0
GameTime = Minutes * 60 + Seconds

DIM directions(1 TO 57) AS STRING
directions(1) = "NORTH"
directions(2) = "NORTH OR EAST"
directions(3) = "NORTH OR WEST"
directions(4) = "EAST OR SOUTH"
directions(5) = "NORTH OR WEST"
directions(6) = "EAST OR SOUTH"
directions(7) = "NORTH OR WEST"
directions(8) = "EAST OR SOUTH"
directions(9) = "WEST OR SOUTH"
directions(10) = "NORTH OR SOUTH"
directions(11) = "NORTH OR SOUTH"
directions(12) = "NORTH, SOUTH, OR EAST"
directions(13) = "NORTH"
directions(14) = "EAST OR WEST"
directions(15) = "NORTH OR WEST"
directions(16) = "EAST OR SOUTH"
directions(17) = "WEST"
directions(18) = "WEST"
directions(19) = "NORTH OR EAST"
directions(20) = "NORTH, SOUTH, OR WEST"
directions(21) = "EAST"
directions(22) = "NORTH OR SOUTH"
directions(23) = "EAST OR SOUTH"
directions(24) = "WEST OR EAST"
directions(25) = "NORTH OR WEST"
directions(26) = "NORTH OR SOUTH"
directions(27) = "EAST OR SOUTH"
directions(28) = "EAST OR WEST"
directions(29) = "WEST, NORTH, OR SOUTH"
directions(30) = "SOUTH"
directions(31) = "NORTH OR EAST"
directions(32) = "EAST OR WEST"
directions(33) = "EAST OR WEST"
directions(34) = "NORTH OR WEST"
directions(35) = "NORTH OR SOUTH"
directions(36) = "NORTH OR SOUTH"
directions(37) = "NORTH, SOUTH, OR EAST"
directions(38) = "NORTH OR WEST"
directions(39) = "SOUTH"
directions(40) = "WEST OR SOUTH"
directions(41) = "EAST OR WEST"
directions(42) = "EAST OR WEST"
directions(43) = "EAST OR SOUTH"
directions(44) = "NORTH OR WEST"
directions(45) = "EAST OR WEST"
directions(46) = "NORTH OR EAST"
directions(47) = "NORTH OR SOUTH"
directions(48) = "EAST, WEST, OR SOUTH"
directions(49) = "WEST"
directions(50) = "NORTH OR EAST"
directions(51) = "NORTH OR SOUTH"
directions(52) = "EAST OR SOUTH"
directions(53) = "EAST OR WEST"
directions(54) = "NORTH OR WEST"
directions(55) = "SOUTH OR EAST"
directions(56) = "NORTH OR WEST"
directions(57) = "SOUTH"

PRINT ""
PRINT ""
PRINT "Three month's had passed since you've last spoken to your beloved"
PRINT "Aunt. No one had heard from here since the family reunion, which"
PRINT "was quite odd. But within those three month's she passed and"
PRINT "only wanted a few people to know of this. You recieved a call in"
PRINT "the middle of the night from her Lawyer, stating that you have"
PRINT "just been named you as the beneficiary. Can you survive what"
PRINT "awaits you? The spirit of a restless soul awaits you. Good luck."

DO: LOOP UNTIL INKEY$ <> ""
DOOM = TIMER(0.001) + GameTime 'change this to to desied time for the game to run

DO
    CLS
    PRINT ""
    PRINT ""
    PRINT "                            _____/      \\_____"
    PRINT "                           |  _     ___   _   ||"
    PRINT "                           | | \     |   | \  ||"
    PRINT "                           | |  |    |   |  | ||"
    PRINT "                           | |_/     |   |_/  ||"
    PRINT "                           | | \     |   |    ||"
    PRINT "                           | |  \    |   |    ||"
    PRINT "                           | |   \. _|_. | .  ||"
    PRINT "                           |                  ||"
    PRINT "                           |   Death Cometh   ||"
    PRINT "                           |                  ||"
    PRINT "                             Written   By"
    PRINT "                                D.B.   Taylor                                   "
    PRINT "                           Copyright   (c) 2015                           "
    PRINT ""
    PRINT SPACE$(38);
    IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT
    PRINT "*---------------------------------* ";
    IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " ";
    PRINT " + ";
    IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " ";
    PRINT " *------------------------------------*"
    PRINT SPACE$(38);
    IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT
    PRINT
    PRINT "If you are stuck just type HELP."
    PRINT
    GOSUB ROOM
    GOSUB parser
LOOP

ROOM:
IF r = 1 THEN: GOSUB r1
IF r = 2 THEN: GOSUB r2
IF r = 3 THEN: GOSUB r3
IF r = 4 THEN: GOSUB r4
IF r = 5 THEN: GOSUB r5
IF r = 6 THEN: GOSUB r6
IF r = 7 THEN: GOSUB r7
IF r = 8 THEN: GOSUB r8
IF r = 9 THEN: GOSUB r9
IF r = 10 THEN: GOSUB r10
IF r = 11 THEN: GOSUB r11
IF r = 12 THEN: GOSUB r12
IF r = 13 THEN: GOSUB r13
IF r = 14 THEN: GOSUB r14
IF r = 15 THEN: GOSUB r15
IF r = 16 THEN: GOSUB r16
IF r = 17 THEN: GOSUB r17
IF r = 18 THEN: GOSUB r18
IF r = 19 THEN: GOSUB r19
IF r = 20 THEN: GOSUB r20
IF r = 21 THEN: GOSUB r21
IF r = 22 THEN: GOSUB r22
IF r = 23 THEN: GOSUB r23
IF r = 24 THEN: GOSUB r24
IF r = 25 THEN: GOSUB r25
IF r = 26 THEN: GOSUB r26
IF r = 27 THEN: GOSUB r27
IF r = 28 THEN: GOSUB r28
IF r = 29 THEN: GOSUB r29
IF r = 30 THEN: GOSUB r30
IF r = 31 THEN: GOSUB r31
IF r = 32 THEN: GOSUB r32
IF r = 33 THEN: GOSUB r33
IF r = 34 THEN: GOSUB r34
IF r = 35 THEN: GOSUB r35
IF r = 36 THEN: GOSUB r36
IF r = 37 THEN: GOSUB r37
IF r = 38 THEN: GOSUB r38
IF r = 39 THEN: GOSUB r39
IF r = 40 THEN: GOSUB r40
IF r = 41 THEN: GOSUB r41
IF r = 42 THEN: GOSUB r42
IF r = 43 THEN: GOSUB r43
IF r = 44 THEN: GOSUB r44
IF r = 45 THEN: GOSUB r45
IF r = 46 THEN: GOSUB r46
IF r = 47 THEN: GOSUB r47
IF r = 48 THEN: GOSUB r48
IF r = 49 THEN: GOSUB r49
IF r = 50 THEN: GOSUB r50
IF r = 51 THEN: GOSUB r51
IF r = 52 THEN: GOSUB r52
IF r = 53 THEN: GOSUB r53
IF r = 54 THEN: GOSUB r54
IF r = 55 THEN: GOSUB r55
IF r = 56 THEN: GOSUB r56
IF r = 57 THEN: GOSUB r57

RETURN

parser:
PRINT "> ";
cmd$ = GrabInput
cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN
    END
END IF
IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN
    CLS
    PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."
    PRINT
    PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION"
    PRINT "EXAMINE (OBJECT)             - EXAMINE AN OBJECT"
    PRINT "USE (OBJECT)                 - USE AN OBJECT"
    PRINT "TAKE (OBJECT)                - TAKE OR MOVE AN OBJECT"
    PRINT "INVENTORY                    - VIEW YOUR INVENTORY"
    PRINT "DRINK                        - DRINK BEER"
    PRINT "UNLOCK                       - UNLOCK DOOR"
    PRINT "HELP                         - VIEW THIS SCREEN"
    PRINT "END                          - END GAME"
    PRINT
    PRINT "PRESS ANY KEY...": SLEEP
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN
    CLS
    PRINT "INVENTORY..."
    PRINT
    IF gotdoll = 1 THEN: PRINT "A little girls doll."
    IF gotkey = 1 THEN: PRINT "It's an old rusted key. But for what?"
    IF gotletter = 1 THEN: PRINT "A letter from your dearly departed Aunt."
    IF gotwine = 1 THEN: PRINT "A bottle of finely crafted French wine."
    IF gotcoins = 1 THEN: PRINT "Two gold coins dating back to 1856."
    IF gotshovel = 1 THEN: PRINT "A new shovel, looks like it's never been used."
    IF gotskull = 1 THEN: PRINT "The skull of a recently dug up body. Poor soul."
    PRINT
    PRINT "PRESS ANY KEY..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN
    IF r = 1 THEN: r = 2: GOTO moved
    IF r = 2 THEN: r = 18: GOTO moved
    IF r = 3 THEN: r = 4: GOTO moved
    IF r = 5 THEN: r = 6: GOTO moved
    IF r = 7 THEN: r = 8: GOTO moved
    IF r = 13 THEN: r = 12: GOTO moved
    IF r = 12 THEN: r = 11: GOTO moved
    IF r = 11 THEN: r = 10: GOTO moved
    IF r = 10 THEN: r = 9: GOTO moved
    IF r = 15 THEN: r = 16: GOTO moved
    IF r = 19 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 23: GOTO moved
    IF r = 25 THEN: r = 26: GOTO moved
    IF r = 26 THEN: r = 27: GOTO moved
    IF r = 31 THEN: r = 29: GOTO moved
    IF r = 29 THEN: r = 30: GOTO moved
    IF r = 34 THEN: r = 35: GOTO moved
    IF r = 35 THEN: r = 36: GOTO moved
    IF r = 36 THEN: r = 37: GOTO moved
    IF r = 37 THEN: r = 40: GOTO moved
    IF r = 38 THEN: r = 39: GOTO moved
    IF r = 44 THEN: r = 43: GOTO moved
    IF r = 46 THEN: r = 47: GOTO moved
    IF r = 47 THEN: r = 48: GOTO moved
    IF r = 50 THEN: r = 51: GOTO moved
    IF r = 51 THEN: r = 52: GOTO moved
    IF r = 54 THEN: r = 55: GOTO moved
    IF r = 56 THEN: r = 57: GOTO moved
END IF
IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN
    IF r = 2 THEN: r = 3: GOTO moved
    IF r = 4 THEN: r = 5: GOTO moved
    IF r = 6 THEN: r = 7: GOTO moved
    IF r = 8 THEN: r = 9: GOTO moved
    IF r = 12 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 15: GOTO moved
    IF r = 16 THEN: r = 17: GOTO moved
    IF r = 19 THEN: r = 18: GOTO moved
    IF r = 21 THEN: r = 20: GOTO moved
    IF r = 23 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 25: GOTO moved
    IF r = 27 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 29: GOTO moved
    IF r = 31 THEN: r = 32: GOTO moved
    IF r = 32 THEN: r = 33: GOTO moved
    IF r = 33 THEN: r = 34: GOTO moved
    IF r = 37 THEN: r = 38: GOTO moved
    IF r = 43 THEN: r = 42: GOTO moved
    IF r = 42 THEN: r = 41: GOTO moved
    IF r = 41 THEN: r = 40: GOTO moved
    IF r = 46 THEN: r = 45: GOTO moved
    IF r = 45 THEN: r = 44: GOTO moved
    IF r = 50 THEN: r = 48: GOTO moved
    IF r = 48 THEN: r = 49: GOTO moved
    IF r = 52 THEN: r = 53: GOTO moved
    IF r = 53 THEN: r = 54: GOTO moved
    IF r = 55 THEN: r = 56: GOTO moved
END IF
IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN
    IF r = 18 THEN: r = 2: GOTO moved
    IF r = 2 THEN: r = 1: GOTO moved
    IF r = 4 THEN: r = 3: GOTO moved
    IF r = 6 THEN: r = 5: GOTO moved
    IF r = 8 THEN: r = 7: GOTO moved
    IF r = 9 THEN: r = 10: GOTO moved
    IF r = 10 THEN: r = 11: GOTO moved
    IF r = 11 THEN: r = 12: GOTO moved
    IF r = 12 THEN: r = 13: GOTO moved
    IF r = 16 THEN: r = 15: GOTO moved
    IF r = 23 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 20: GOTO moved
    IF r = 20 THEN: r = 19: GOTO moved
    IF r = 27 THEN: r = 26: GOTO moved
    IF r = 26 THEN: r = 25: GOTO moved
    IF r = 30 THEN: r = 29: GOTO moved
    IF r = 29 THEN: r = 31: GOTO moved
    IF r = 40 THEN: r = 37: GOTO moved
    IF r = 37 THEN: r = 36: GOTO moved
    IF r = 36 THEN: r = 35: GOTO moved
    IF r = 35 THEN: r = 34: GOTO moved
    IF r = 39 THEN: r = 38: GOTO moved
    IF r = 43 THEN: r = 44: GOTO moved
    IF r = 48 THEN: r = 47: GOTO moved
    IF r = 47 THEN: r = 46: GOTO moved
    IF r = 52 THEN: r = 51: GOTO moved
    IF r = 51 THEN: r = 50: GOTO moved
    IF r = 55 THEN: r = 54: GOTO moved
    IF r = 57 THEN: r = 56: GOTO moved
END IF
IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN
    IF r = 9 THEN: r = 8: GOTO moved
    IF r = 7 THEN: r = 6: GOTO moved
    IF r = 5 THEN: r = 4: GOTO moved
    IF r = 3 THEN: r = 2: GOTO moved
    IF r = 15 THEN: r = 14: GOTO moved
    IF r = 14 THEN: r = 12: GOTO moved
    IF r = 17 THEN: r = 16: GOTO moved
    IF r = 18 THEN: r = 19: GOTO moved
    IF r = 20 THEN: r = 21: GOTO moved
    IF r = 25 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 23: GOTO moved
    IF r = 29 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 27: GOTO moved
    IF r = 34 THEN: r = 33: GOTO moved
    IF r = 33 THEN: r = 32: GOTO moved
    IF r = 32 THEN: r = 31: GOTO moved
    IF r = 38 THEN: r = 37: GOTO moved
    IF r = 40 THEN: r = 41: GOTO moved
    IF r = 41 THEN: r = 42: GOTO moved
    IF r = 42 THEN: r = 43: GOTO moved
    IF r = 44 THEN: r = 45: GOTO moved
    IF r = 45 THEN: r = 46: GOTO moved
    IF r = 49 THEN: r = 48: GOTO moved
    IF r = 48 THEN: r = 50: GOTO moved
    IF r = 54 THEN: r = 53: GOTO moved
    IF r = 53 THEN: r = 52: GOTO moved
    IF r = 56 THEN: r = 55: GOTO moved
END IF

IF (cmd$ = "EXAMINE COINS") AND gotcoins = 1 THEN
    CLS
    PRINT "Two gold coins, in perfect condition."
    PRINT "odd."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE DOLL") AND gotdoll = 1 THEN
    CLS
    PRINT "The doll seems to have been homemade. Made by a loving parent of"
    PRINT "sorts."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE SKULL") AND gotskull = 1 THEN
    CLS
    PRINT "The old dusty skull that seems to be older than you are. It has "
    PRINT "a very old look to it. Now the real question is why's it here?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE KEY") AND gotkey = 1 THEN
    CLS
    PRINT "A rusted old key, covered in rust, and looks to be over a hundred"
    PRINT "years old."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE WINE") AND gotwines = 1 THEN
    CLS
    PRINT "An old bottle of French wine, dated 1947."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE LETTER") AND gotletter = 1 THEN
    CLS
    PRINT "A freshly printed letter from a generic printer. I wonder what it"
    PRINT "has to tell me?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE SHOVEL") AND gotshovel = 1 THEN
    CLS
    PRINT "The standard run of the mill hardware store special."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE AUNT") AND R17 THEN
    CLS
    PRINT "You look upon the remains of what use to be your loving Aunt. Her"
    PRINT "eye's are sunken in and her skin looks like wrinkled leather. Her"
    PRINT "mouth is slightly opened."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE TOMB") AND R17 THEN
    CLS
    PRINT "The tomb looks as if it had been polished. But by whom?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE FLOWERS") AND R17 THEN
    CLS
    PRINT "The flowers are dead."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

IF (cmd$ = "UNLOCK FRONT DOOR" OR cmd$ = "USE KEY") AND gotkey = 1 AND door = 1 AND r = 48 THEN
    CLS
    door = 0
    PRINT "You place the old key in the knob and before you are able to let go, the"
    PRINT "door violently swings open."
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "DIG GRAVE" OR cmd$ = "USE SHOVEL") AND gotshovel = 1 AND r = 17 THEN
    CLS
    PRINT "Taking a deep breath, you cut into the Earth, and begin the task of"
    PRINT "desecrating the grave of your loving Aunt."
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "PLACE COINS ON EYES" OR cmd$ = "USE COINS") AND gotcoins = 1 AND r = 17 THEN
    CLS
    PRINT "You place the two gold coins over her eyes. You take a moment and silently"
    PRINT "you say sorry for what you have done. But it was needed."
    GOTO win
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK" OR cmd$ = "TALK TO GRAVE") AND r = 17 THEN
    CLS
    PRINT "Clearing your throat, you lower your head and muster up"
    PRINT "the strength, and finally the words come free. I know that"
    PRINT "you are walking these grounds, in anger, and hate. But now"
    PRINT "you can rest, now you are at peace. "
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE GHOST") AND R10 THEN
    CLS
    PRINT "She stands before you and with a pained expression upon her face."
    PRINT "Her eye's are sunken in and her skin looks as if it's been burned"
    PRINT "by something."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO GHOST") AND R10 THEN
    CLS
    PRINT "You try speaking to her but with no luck. She slow reveals a grin."
    PRINT "Suddenly before your eyes she lunges upon you screaming."
    GOTO lose:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE GHOST") AND R17 THEN
    CLS
    PRINT "She stands before you and with a pained expression upon her face."
    PRINT "Her eye's are sunken in and her skin looks as if it's been burned"
    PRINT "by something."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO GHOST") AND R17 THEN
    CLS
    PRINT "You try speaking to her but with no luck. She slow reveals a grin."
    PRINT "Suddenly before your eyes she lunges upon you screaming."
    GOTO lose:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE GHOST") AND R26 THEN
    CLS
    PRINT "She stands before you and with a pained expression upon her face."
    PRINT "Her eye's are sunken in and her skin looks as if it's been burned"
    PRINT "by something."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO GHOST") AND R26 THEN
    CLS
    PRINT "You try speaking to her but with no luck. She slow reveals a grin."
    PRINT "Suddenly before your eyes she lunges upon you screaming."
    GOTO lose:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE GHOST") AND R37 THEN
    CLS
    PRINT "She stands before you and with a pained expression upon her face."
    PRINT "Her eye's are sunken in and her skin looks as if it's been burned"
    PRINT "by something."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO GHOST") AND R37 THEN
    CLS
    PRINT "You try speaking to her but with no luck. She slow reveals a grin."
    PRINT "Suddenly before your eyes she lunges upon you screaming."
    GOTO lose:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE GHOST") AND R49 THEN
    CLS
    PRINT "She stands before you and with a pained expression upon her face."
    PRINT "Her eye's are sunken in and her skin looks as if it's been burned"
    PRINT "by something."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO GHOST") AND R49 THEN
    CLS
    PRINT "You try speaking to her but with no luck. She slow reveals a grin."
    PRINT "Suddenly before your eyes she lunges upon you screaming."
    GOTO lose:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

moved:
RETURN

r1:
PRINT "Darkness surrounds you...a cold breeze brushes past you and the scent"
PRINT "of death lingers in the air."
RETURN

r2:
PRINT "The faint odor  of death lingers in the air. The grounds seem to have not"
PRINT "been tended to in some time."
RETURN

r3:
PRINT "You make the long trek towards the family plot. A flock of birds fly"
PRINT "overhead and the leaves dance across the grass."
RETURN

r4:
PRINT "With every step you take down the old gravel path, you feel as if"
PRINT "you are being watched by someone or something."
RETURN

r5:
PRINT "Nothing but silence, silence all around you...just what is waiting for you"
PRINT "brings a sense of fear over you. You really wish you weren't alone here."
RETURN

r6:
PRINT "The sound of a voice is heard, carried on the wind, and it sounds"
PRINT "as if it's calling you...calling you for a visit."
RETURN

r7:
PRINT "The path seems to be stretched out for eternity. You notice the"
PRINT "grass is swaying, almost dancing in a way as the wind leads it."
RETURN

r8:
PRINT "Over the small hill you can see the resting place of your beloved Aunt."
PRINT "Though you wish to cut across, but who knows what lurks in the tall grass?"
RETURN

r9:
PRINT "In the distance you see a strange mist, it hovers above the ground, and"
PRINT "is followed by a strange smell that can only be described as rotten meat."
RETURN

r10:
PRINT "Storm clouds are gathering overhead and it sppears a storm is on its way."
IF gotghost = 1 THEN: PRINT "You see the faint image of woman standing before you."
RETURN

r11:
PRINT "The feeling of being weak and drained overcomes you. But God only knows"
PRINT "waht is waiting for you back on the path. But you must go on..."
RETURN

r12:
PRINT "Finally the path comes to an end. You feel as if you've been walking for an"
PRINT "hour or so. But that storm looks like it's getting closer and soon."
RETURN

r13:
PRINT "You are standing at the ledge of the small path over looking the abandoned"
PRINT "road that leads towards the lake just a few miles away. ou are overcome by"
PRINT "an uneasy feeling."
RETURN

r14:
PRINT "The gravel path becomes more firm and seems to have been padded down."
RETURN

r15:
PRINT "A strong yet cold wind brushes past you and almost like a sign of sorts. Creepy!"
RETURN

r16:
PRINT "Taking a deep breath, you begin to calm yourself down, and manage to "
PRINT "gather the courage in seeing her."
RETURN

r17:
PRINT "You look upon the mound of Earth that confines your Aunt back to the depths of"
PRINT "the Earth. Her tombstone is freshly polished and some flowers are resting before"
PRINT "your feet."
IF gotdoll = 0 THEN: PRINT "The find and old doll, resting against the tombstone."
IF gotdoll = 1 THEN: PRINT "You take the doll and inhale deeply. A grin washes across your face."
IF gotghost = 1 THEN: PRINT "The image of a woman covering her face and crying...who is she?"
RETURN

r18:
PRINT "You hear what sounds like voices calling out to you? But what are they saying?"
RETURN

r19:
PRINT "The long path leading towards her cabin in the middle of nowhere seems to go"
PRINT "on forever. Just why would she want to build here is anyone's guess?"
RETURN

r20:
PRINT "Laughter, you hear laughter in this place of darkness! You feel as if you"
PRINT "are losing the sanity you've tried to keep for so long."
RETURN

r21:
PRINT "You are standing before a huge mound of dirt."
IF gotshovel = 0 THEN: PRINT "Sticking out of the Earth, you find a shovel."
IF gotshovel = 1 THEN: PRINT "You tightly grip the shovel and just wonder what you'll be digging up?"
RETURN

r22:
PRINT "The sun begin's to set and you must take shelter and quick."
RETURN

r23:
PRINT "The gravel path is doing a number on your feet."
RETURN

r24:
PRINT "As you are walking down the path you are overcome by emotion on"
PRINT "the thoughts of the time that you spent with her. The summers"
PRINT "at the old swimming hole and drinking iced tea on the porch."
RETURN

r25:
PRINT "You are overcome with a sickening feeling. Like someone or something"
PRINT "is draining you of your strength."
RETURN

r26:
PRINT "Thunder crashes overhead and a bolt of lightning rushes across the sky."
PRINT "The scent of rain fills the air and a chill that reaches your bones."
IF gotghost = 1 THEN: PRINT "The smell of decayed flesh fills the air. You see what appears to"
PRINT "be the same woman crying to herself. Poor soul."
RETURN

r27:
PRINT "Nothing left now but to quickly seek shelter. With everything you've seen"
PRINT "so far doesn't make you want to be left alone out here over night."
RETURN

r28:
PRINT "The sfoul stench of death lurks in the air like that of a body decaying."
RETURN

r29:
PRINT "The uneven Earth makes you feel as if you are wandering through the wilderness."
RETURN

r30:
PRINT "You are standing before an old wooden desk. Left to rot away from"
PRINT "the elements. It's the sorta desk one would find in an old movie"
PRINT "set in the eightee.nth century."
IF gotskull = 0 THEN: PRINT "The old and scratched up skull of an unknown person rests on the desk before you."
IF gotskull = 1 THEN: PRINT "You figure why not. Who was the owner of this anyways? You ask yourself."
IF gotletter = 0 THEN: PRINT "A neatly folded letter rests on the desk. It looks if it's been there for some time."
IF gotletter = 1 THEN: PRINT "You take the letter."
RETURN

r31:
PRINT "Soon the path begins to be enclosed by rows of infant tree's. Strange..."
RETURN

r32:
PRINT "The strange smell of burning wood suddenly fills the air around you and as with"
PRINT "every step you take, the tree's slowly mature around you."
RETURN

r33:
PRINT "In the distance you can see what looks to be a pillar of black smoke. Where it's"
PRINT "coming from is unknown. Since you are the only one here?"
RETURN

r34:
PRINT "You are standing down a long gravel road. In the distance you see"
PRINT "nothing but trees."
RETURN

r35:
PRINT "You want to laught, but can't even force out a chuckle."
RETURN

r36:
PRINT "The feeling of being watched overcomes you...but by who?"
RETURN

r37:
PRINT "You are wondering if this place will be your own tomb."
PRINT "A cold, dark world of sorts."
IF gotghost = 1 THEN: PRINT "The ghostly woman's clothes are torn and her flesh looks weathered."
RETURN

r38:
PRINT "The faint sound of birds chirping filled the air. Finally,"
PRINT "a sign of life in this unholy place."
RETURN

r39:
PRINT "You are standing before a wall of tree's that have been living in this place for"
PRINT "God knows how long?"
RETURN

r40:
PRINT "In the distance, you see the home that was called home for you Aunt."
PRINT "Finally, you say to yourself and begin to pick up the pace."
RETURN

r41:
PRINT "The world around you has taken on the atmosphere of a world void of life."
RETURN

r42:
PRINT "With everything that has happened so far. You wonder if this venture is even"
PRINT "worth it."
RETURN

r43:
PRINT "But alas, the time you had spent with her in your childhood, meant that"
PRINT "you owe it to her."
RETURN

r44:
PRINT "You see that the trail is coming to and end soon."
RETURN

r45:
PRINT "The birds that spoke to one another and gave life to this dead place"
PRINT "have flown away and left. Leaving an eerie silence once more."
RETURN

r46:
PRINT "You upon the old home, built around the twenties. The memories you've"
PRINT "had here could fill a book."
RETURN

r47:
PRINT "You are standing on the old wooden porch."
IF gotkey = 0 THEN: PRINT "Laying before your feet, is what looks like an old rusted key."
IF gotkey = 1 THEN: PRINT "You take the key and notice that it opens a door."
RETURN

r48:
PRINT "You are standing in the entranceway of the old home. The house looks to"
PRINT "not have changed since you were a kid."
RETURN

r49:
PRINT "You are stnading in the parlor room. The furniture has been taken away"
PRINT "and the temperature in the room has dropped rapidly."
IF gotghost = 1 THEN: PRINT "The ghostly figure appears before your eyes. A grin is on her face."
RETURN

r50:
PRINT "You are standing in the hallway, shadows on the wall, they seem to be dancing"
PRINT "for you."
RETURN

r51:
PRINT "With every step you take, you can hear the sounds of muffled crying...of a"
PRINT "man."
RETURN

r52:
PRINT "As you reach the end of the hallway, you are surprised to fine that you are"
PRINT "suddenly a lone. No crying or other sounds to be heard."
RETURN

r53:
PRINT "You are standing in what use to be the dining room. The smell of pot roast"
PRINT "fills the air."
RETURN

r54:
PRINT "You are standing in the dust filled kitchen. Everything has been gutted, pity."
IF gotwine = 0 THEN: PRINT "An old bottle of wine stands on the the counter."
IF gotwine = 1 THEN: PRINT "You figure why not. No one's around. Plus it may be good."
RETURN

r55:
PRINT "Every room in this house is filled with memories. Though, those"
PRINT "memories seem to be more painful seeing the house unlived in."
RETURN

r56:
PRINT "The smell of bleach fills the air as you enter the bathroom."
PRINT "A thick layer of dust coats the walls."
IF gotghost = 1 THEN: PRINT "She stands before you, her arms are open, as if she has been waiting"
PRINT "for you?"
RETURN

r57:
PRINT "What was my Aunt's room. Though the house was gutted, this room"
PRINT "still remains intact."
IF gotcoins = 0 THEN: PRINT "The glimmering shine of two gold coins."
IF gotcoins = 1 THEN: PRINT "You take the coins and think to yourself. Someone's missing these!"
RETURN

win:
COLOR 2, 0
CLS
PRINT "You have set the spirit of your Aunt to rest. The sun begin's to"
PRINT "rise above the once dead landscape. You feel at peace, knowing"
PRINT "that the pain that she must have felt being lifted from her being."
PRINT "All is well now, all is well."
PRINT
PRINT "Thank you for playing."
DO: LOOP UNTIL INKEY$ <> ""
END

lose:
COLOR 2, 0
CLS
PRINT "Between slipping in and out from the realm of the living to that"
PRINT "of the dead. For the few moments you are able to cling to life,"
PRINT "you see the face of death rip into the flesh that clings to your"
PRINT "bones, pity..."
PRINT
PRINT "Better Luck Next Time..."
DO: LOOP UNTIL INKEY$ <> ""
END

FUNCTION GrabInput$
x = POS(0)
y = CSRLIN
maxwidth = _WIDTH - x
PCOPY 0, 1 'make a backup copy of the screen

DO
    k = _KEYHIT
    i$ = INKEY$
LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer

DO
    _LIMIT 30
    PCOPY 1, 0
    LOCATE y, x: PRINT Userinput$

    k = _KEYHIT
    SELECT CASE k
        CASE 8
            Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1)
        CASE 65 TO 90, 97 TO 122, 32
            Userinput$ = UCASE$(Userinput$ + CHR$(k))
    END SELECT

    timerleft## = (DOOM - TIMER(0.001))
    minutes = timerleft## \ 60
    seconds = timerleft## - minutes * 60
    LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds
    IF timerleft## <= 0 THEN GOTO doomed
    _DISPLAY

LOOP UNTIL k = 13
GrabInput$ = Userinput$
_AUTODISPLAY
EXIT FUNCTION

doomed:
CLS
PRINT "As the darkness begin's to grow ever so thicker. You are se to work out"
PRINT "for you! But not this time, no, not this time...farewell young fool."
_DISPLAY
END
END SUB